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EDTSLSUBS - SUBSTITUTE Line-mode command 18-Sep-19 4 91:03:28 VAX-11 Bliss-32 nt get Page 
14-$ 4 12:23: DISKSVMSMASTER: CEDT.SRCJLSUBS.BLI;1 


-Sep-19 STER:C 
999) ZTITLE “EDTSLSUSS = SUBSTITUTE Line-mode command’ 
0 ¢ MODULE EDTS$LSUBS ( ' SUBSTITUTE Line=-mode command 
pent = 'v04-000' ! File: LSUBS.BLI Edit: $1TS1011 
= 


BEGIN 


SRR REE EAAAAEAE EAE EARAAAEAAAAAAAAAAAAAAAATAATARAARAAAAES 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND ah TH 


COooooo 


ooo 


!t TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- arepoRAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 


® 

® 

® 

® 

® 

® 

® 

® 

® 

: * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 

® 

® 

® 

® 

® 

® 

ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
® 

® 

® 


SRR REAR AA REA AAAAAAEAAE AAA AEAAEA AERA AAA AAAREAREATAAREEEEE 
' 


ssssssssssssssssssssssssssssssssss 
SOOSSSSSSOOSOOSOOCOSOOSCOOCOOOCOCOOOOOoOoOooOoO 


PWN O ODNOM EWN ( O ODNOU EWN OOONOUE WN Oo 


a ee ee _  —L 
. 


ee 
} FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 
00 This module executes the Line mode SUBSTITUTE command. 
4 : ENVIRONMENT: Runs at any access mode - AST reentrant 
004 AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
004 i MODIFIED BY: 
004 i 1-001 = Original. DJS 30-JAN-81. This module was created by 
0045 : eutrect ing the routine yD SUBCMD from the module EXEC.BLI. 
0046 ! 1-002 - Regularize headers. JBS 20-Mar-198 
0047 ! 1-005 = Change substitute to EDTSSSUB_NXT . JBS 27-Mar-1981 
0048 ! 1-004 = Change paramter to FMT-STRCNT. SMB 5-Feb-1982 . 
0049 : 4 - Give a message if there is an error sorting search airings. JBS 04-May-1982 
0050 ! 1- 36 - Stop process ng on bad select range. SMB 01-Jul-19 
0051 ! 1-007 - Use EDTSSFMT_CRLF instead of EDTSSOUT_FMTBUF. JBS 05-Jul-1982 
p26 ' 1-008 - Mark the screen as changed if ug change goything. JBS 07-Jul-1982 
5 ! 1-009 = Put edt$$tst_eob in Line . STS 22-Sep-1982 ; 
54 : “Sif ~ Remove EDT$$G_SCR_CHGD, new screen logic goqen't need it. JBS 09-Oct-1982 
0056 : 1-011 = Put edt$$rng_frst{n in Line. STS 11-Oct-1982 
005 


(1 


1 
) 


14 
EDT S$ EDTSLSUBS = SUBSTITUTE Line-mode command 1bes0 -1984 01:01: VAX-11 Bliss-32 V4.0-74 Pa | 
eR bee Declarations 12-8een 188s oh eg Helm GhaStencceot seciusues.aui;1 -°% cas 
; 9 28 SSBTTL ‘Declarations’ 
9 ; TABLE OF CONTENTS: 
5 


oO 


REQUIRE ‘EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSLN_SUBCMD : NOVALUE; ! Process the SUBSTITUTE command 


$ 1 

; & 1 

¢ 8 : 

3 8 1 

; © 1 

3; 63 : 

3 69 1 | 

; 1 : 
: $8 269 | i INCLUDE FILES | 
a 306 1 i | ; 
3 Le 509 1 ; 
: 7 0519 1 REQUIRE "EDTSRC:EDTREQ'; | 

3 ie 064 i 

: rg pe7$ 1 ! MACROS: 

3 7 Bete 1! 3 
; «78 9 1} NONE ; 
3 79 0650 1! ; 
3 80 0651 1 ! EQUATED SYMBOLS: 3 
8 81 pees 1! 3 
3 4 0655 1! NONE F 
3 8 0654 1! 3 
3 84 0655 1 ! OWN STORAGE: 

; 85 R628 1! 

; | 6} 0657 1! NONE 

og 0658 1! 

; 88 0659 1 ! EXTERNAL REFERENCES: | 

3 89 0660 1! | 

; 90 0661 1! In the routine 


Neen Se ee eee - COPS ‘a loan 


D | 
E S SUBS = SUBSTITUTE Line-mode command 1 shea -1 VAX-11 Bliss-32 V4.0-74 Page 3 
RTS ae Thine SUBCMD = SUBSTITUTE Line-mode command 14-Sep- eet} 7 9}: 9: 28 DIEKSVMOMASTERSCEDT SACTLSUBS.BLI;1 . (3) 
3 38 ! ZSBTTL ‘EDTSSLN_SUBCMD = SUBSTITUTE Line-mode command’ 
: 94 1 GLOBAL ROUTINE EDTSSLN_SUBCMD ! SUBSTITUTE Line-mode command 
. ! : NOVALUE = 
; 39 1 !4¢ 
3 o8 : } FUNCTIONAL DESCRIPTION: 
: 100 1 i Command processing routine for SUBSTITUTE. Position to the first 
: 19) 1! Line of the range, then enter a loop gettin the next Line and 
9 ¢ 1} calling EDTSS$SUB_NXT to do subst ituions within that Line. 
; 19? 7: f the range was null, then we do only a single substitution, 
3 13e } otherwise all are done. 
: 106 ; FORMAL PARAMETERS: 
; 108 NONE 
: 110 i IMPLICIT INPUTS: 
; 118 1 i EDT$$G_INP_SRC 
: 14 1 i EDTS$A~CUR 
> 114 1 i EDT$$2—RNG~SAVPOS 
s 115 1! EDTSSA_EXE_ 
:; 116 1! EDTS$G_EXE_QRYQUIT 
3; («117 1! EDTS$G_EXE NT 
; 133 ' EDTSSA_wk_C 
: 120 { IMPLICIT OUTPUTS: 
= ¢ 1 NONE 
..% : 1 i 
5 iss ! ROUTINE VALUE: 
; 136 NONE 
; 135 i SIDE EFFECTS: 
: 130 1 i NONE 
; «151 1! 
i 43 — 
; 134 BEGIN 
: 13 eareeot ROUTIN 
s 137 EDT hal aSthcnt : NOVALUE, : : 
; is EDTSS$ ! Terminate an output Line 
; 139 0709 EDTSSSE TST e 
; 140 710 EDTSSFMT_MSG : NOVALUE, 
; «6141 711 EDTSSNXT_L ° 
: 14g ng ENTSSRNG REPOS, 
: 16 71 EDTSSRD_CURLN, 
3 146 714 EDTS$SUB_NXT : NOVA 
3 6165 715 EDTSSSTOP_WKINGMSG : LUE VALUE, ' Turn off the ‘ Lert message 
: 146 O7i6 EDTS$CHK_CC; i Check for a control 
: 14 gr 
: 148 718 EXTERNAL 


c 


RS Da 14 § 
e T SUBS = SUBSTITUT mode command 1b-Se0-1 " 1 2.v4.0- 4 


SiN SUBCAD = Pee ose mmand Lake en Oke Feiobice §| DIEKSUMOMARTERSCEDT sechsuss.eui;1 -°% 35 
RO : LN_BLOCK, 
F 


: REF TBCB_BLOCK, 
vPOS : POS BCOCK, 

: REF LIN_BLOCK, 
RSTLN 

R1GPOS : POS_BLOCK, 


P 
R-BU 
G_SA 
G 

G 


E 
7E 
SR 
8 
$ 
_F 
0 
“CURCMD_: REF NODE_BLOCK, Pointer to the current command. 
_QRYQUIT, Quit flag for /QUERY operations. 

SUBCNT, No. of substitutions done. 
BONE; ! Set if control C actually aborted something 


MMmMmMmmmmmnrmnrnicrniecry 
FA RPMAMHPMPARHHAHPHOCRHAHGHEA & 
PAPARAPAAPARKAGRKM 


MESSAGE 


ating that there is a problem setting the strings 
byte count field 

. ag indicating single subs only 

a9 

ag 


FIRST 


I 
SEEN_CC; 


OCAL 
STRINGS ' Flag indic 
' 
: indicating whether this is the first one. 


OK, 
TEMP_COONT : LN_BLOCK, 1 6 
SINGCE et 
Flag indicating we have seen a control C 
'¢ 
Get the range node. 


BIND 
RANGE = .EDVS$SA_EXE_CURCMD CRANGE1) : NODE_BLOCK; 


t+ 
Position to the first Line. 


ray 

75 EDTS$$G_RNG_FRSTLN = 1; 

75 EDTSS$CPY_MEM( POS SIZE, .EDTS$A_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 

734 IF ( NOTEDTSSRNG-REPOS (.EDTSS$A_EXE_CURCMD CRANGE1J)) THEN RETURN; 
756 

757 

758 

739 SINGLE = .RANGE CRAN_TYPE) EQL RAN_NULL; 

761 i Set flag indicating this if the first substitution, and zero the 
th substitution count. 


FIRST = 1; 
EDT$$G_EXE_SUBCNT = 0; 
STRINGS_OK™= 1; 

oA CC = 0; 


Loop over the range. 


Mrmr 


WHILE (EDTSSNXT_LNRNG (0) AND ( NOT .EDTS$$G_EXE_QRYQUIT) AND .STRINGS_OK AND ( NOT .SEEN_CC)) DO 
IF (.EDTS$A_WK_LN NEQA EDT$$Z_E0B_LN) 
THEN 
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: Set the single substitution flag if the range was null. 
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* BEGIN 
i Must set up the search and replace string each time through 
5 case the range involved a search string, which would clobber 


5 
5 


=) 
S 
— 
Lol 
na 


or 
row 


ooo 
0 0000 
oO 
PPMP PIPOPIPIPINPININD EE BB TD PD TTT SOB BB BB ANNI “Ss 


wo 
Se 
oO 
eT) 


le 

STRINGS_OK = EDTSSSET_STR (); 

IF .STRINGS_OK 

THEN 

7 BEGIN | 
Do substitutions in this Line starting at position 0. | 
SEEN_CC = EDTSSCHK_CC (); 


IF ( NOT .SEEN_CC) 
THEN 


SN oO 


VFWN—OOe VEU —OOONG we 


BEGIN 
EDTSSSUB_NXT (.SINGLE, 0); 


+ 
Check to see if this was the first Line in the range. | 


IF .FIRST 
THEN 


'¢ 
! Save position after first substitute so we can 

' correctly reposition there. This is myeqeceery since 

! modifying the first Line might change it's position in 

the text buffer, invalidating the previously saved position. 


BEGIN 
EDTSSCPY_MEM (POS_SIZE, .EDT$$A_CUR_BUF, EDT$$Z_RNG_SAVPOS); 
FIRST = 0; 
; | 
END 
ELSE | 
EDTS$$G_CC_DONE = 1; 
END; 
END; 
EDTSSSTOP_WKINGMSG (); 


Report a case of an invalid string. 


IF ( NOT .STRINGS_OK) THEN EDTSSFMT_MSG (EDTS_INVSTR); 


te 
' If the command came from the terminal, report the number of 
: substitutions. 


GOODMAN BB BBE REPRE re MYA AAIRIRIRININININUNNY 2 
SOS SSVSUE UNI SSSENS EECA HSSSSES wn Doe NOP OOOO AP UNIO Dee ae 
Oo 
oo 
Oo 
—s 
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WAAR 4 2 


DISLSUBS - SUBSTITUTE Line-mode command 18-50 p-1984 VAX=11 s-32 V 8,00 Pa 6 
DT $i _SUBCMD = SUBSTITUTE Line-mode command 1 238-1384 t 93: gf 28 DISK$V nen TER: ct T.$ Sec4isuss.e1!: 1 ” (3) 
NBEGIN 
pevel Ine Ps a t ogNO-ZE ZERO, TEMP_COUNT); 
TEMP COUNT = & §uBCNT? 


UN 
EDTSSFMT “Staci OTTERee tbont UPLIT (* substitution"), 13); 
EDISSFRT CRLF (); 


'¢ 
And re-position. 
EDTSSCPY MEM (POS SIZE, EDTS$Z_RNG_SAVPOS, .EDTSSA_CUR_BUF); 


EDTSSRD_CURLN(); 
ND; ! of routine EDTS$LN_SUBCMD 


AN SSRLIEALRS 


74 
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BEE EE EE PHAN 


NAVEEN -OOONOUFS Ww Oe 


N 
{hen (.EDTSSG_INP_SRC EQL INP_TERM) 
1 


-TITLE EDTSLSUBS EDTSLSUBS - SUBSTITUTE Line-mode comm 
an 
-IDENT \V04-000\ 
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.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
00 00 6E 6F 69 74 75 74 69 74 73 62 75 73 20 90000 P.AAA: . ASCII \ substitution\<0><0><0> ; 
: 
.EXTRN EDTSSFMT_STRCNT 
-EXTRN EDTSSFMT-CRLF, EDTSSSET_STR | 
-EXTRN EDTSSFMT_MSG, EDTSSNXT CRG 
-EXTRN EDTSSRNG =REPOS EDTS$S$RB_CUR 
“EXTRN EDTS$$SUB-NXT, ED Fes STOP Ok INGMSG 
SEXTRN EDTSSCHK~ tt. “EDTSSL 
[EXTRN EDTS$$G_IAP_SRC EDTSSA, CUR_BUF 
*EXTRN atte “RNG~SAVPOS 
-EXTRN EDTSSA_WK tne EDTS$G_RNG_FRSTLN | 
[EXTRN EDT$$Z—~RNG_ORIGPOS 
EXTRN EDT$$2~EOB-LN, EDTSSA_EXE_CURCMD 
“EXTRN EDTS$$G~EXE—ORYQ UIT | 
“EXTRN EDT$$G~EXE~SUBCNT 
-EXTRN EDTS$$G~CC_BONE, EDTS_INVSTR | 
OFFC 00000 ENTRY porayoeet Save R2.R3,R4,R5,R6,R7,R8,- ; 0664. 
‘ ; | 
B 000000006 9E 000 MOVAB EDT$$G_EXE_SUBCNT, R11 : | 
28 itdaitdit 88 9 itd MOV EDTS$A_CUR-BUF, R10 ; | 
08 C2 0001 SUBL2 #8, SP” : 
000000006 00 »D 01 MOVL  EDTSSA_EXE_CURCMD, R6 : 0746, 
5 04 A6 DO OOOIA MOVL  4(R6),"R7 ~ : | 
000000006 99 01 D OO1g MOVL = #1 EDTSSG_ RNG_FRSTLN : 075 
A 00 000 MOVL,  EDTSSA CUR. : 0753 
000000006 00 60 E 8 MOVCS #14, (RO), ~EDT$$Z_RNG_ORIGPOS ; 
046 Ab DD PUSHL  4(R6) : 0754 | 
000000006 00 1 F CALLS #1, EDTSS$RNG_REPOS : | 
1 0 F A BLBS RO. *1$ ; | 
50 D4 QOO3E 18 CLRL RO : 0759 
01 A Bg 0 if TSTB =: 1(R7) : 


H 14 
EDT Ss EDTSLSUBS - syestitur e@ command 19° Sep- :2 VAX-11 Bliss-32 V4.0-74 Page 7. 
COTS aNe EDTSSLN_SUBCMD ure tt “ath e-mode command 14- ~Sen- 198 9}: 9}: 8 TT EKSUMGMASTERSCEDT. Sec SLSUBS.BLI;1 . (3) 


; Routine Size: 271 bytes, Routine Base: _EDTSCODE + 0010 


78 8 1 
79 0Bc9 1 !<BLF /PAGE> 


1 04 2$ ; 3 

D 4 INCL RO : ; 

59 D 47 2% MOVL RO, SINGLE : ; 

8 1 0D 4A MOVL #1. FIRST : 0764 : 

B D4 00040 CLRL EDT $$G_EXE_SUBCNT : 0765 | : 

56 1 7D 0004F MOVG #1, STRINGS_OK + 0766 | : 

E D4 05 3$: CLRL Os = (§P) ; 0772, ; 

000000006 00 gi FB 0054 CALLS #1, EDTSSNNT. LNRNG : | : 
D 0 €9 00058 BLBC =«._«aRO,._: 58 : | ; 

$ 000000006 00 E8 90036 BLBS EDT$$G_EXE_QRYQUIT, 5$ : | ; 

5 § E9 0006 BLBC STRINGS_OK, 5$ : : 

20 5 8 B BLBS  SEEN_CC7 : ; 

000000006 00 9E $008 MOVAB €EDT$$Z_€08 LN, af? + 0774 | ; 

50 000000006 09 p 0007 CPL EDTSSAL wk_CN, : | : 

000000006 00 0 FB 0007B CALLS #0, EDTSSSET_STR * 0782. : 
56 0 00 p008s MOVL RO sTRINGS Ok : | : 

000000006 90 8 FB 0008 Cs eet te : 9590 
re a ee ase ‘owl |: 

43 D4 $098 CLRL <=-(SPY : 079 ; 

59 DD 00097 PUSHL SINGLE : : 

000000006 00 08 FB 00099 CALLS #2, EDT$$SUB_NXT : ; 
AF E9 OOOA BLBC = FIRST, 3$ + 0800! ; 

50 6A oO 000A MOVL_ EDTS$$A_CUR_BUF : 0809 ; 

000000006 00 60 OF 28 000A6 MOVC3 #14, (RO), UT gst _RNG_SAVPOS ; : 
20 84 09080 cURL EAST Oooo 

000000006 00 g1 d0 0082 4$ MOVL a. EDT$$G_CC_DONE ; Oats : 
000000006 00 90 re 0088 5$ CALLS #0, EDTSS$STOP_WKINGMSG > 0821 ; 
0D 6 €8 000C BLBS STRINGS OK, 68 : 0826 ; 

000000006 8F DD 000C PUSHL #EDTS_IAVSTR : ; 

000000006 00 01 FB 000C CALLS #1 BTSSEMt MSG : 3 
000000006 2 : 90 63: ist tots G_INP_SRC : 0833 ; 

6E 000000006 00 6 28 OO0DA MOVC3 DT$$L_LNO_ZERO, TEMP_COUNT > 0836 ; 
6E 68 8D abes ROVE ebfs G_EXE-SUBCNT, TEMP_COUNT 0837 ; 

FFOS CF F E PUSHAB . 3 3 

08 AE OF ite4 PUSHAB Ene COUNT : ; 

000000006 00 8 FB OOeE CALLS EDTSSFMT STRCNT ; F 
000000006 90 oF OOF CALLS #0 EDTSSFAT “CRLF : 0839 ; 
A 00 OOOre 7$: ROVE EDTSSA_CUR BOF ; 0845 | : 

60 000000006 99 ; OOFF #14, EBT$$Z7_RNG _SAVPOS, (RO) : | 3 
000000006 ° B17 CALLS #0, EDTSSRD_CURC : 0866 | : 


meee IR 


Name 
_EDTSCODE 


File 


$255SDUA 
$255$0UA28 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1S$:LSUBS/0BJ=0BJ$:LSUBS MSRC$:LSUBS.BLI/UPDATE=(ENH$:L SUBS) 


$e: 


Elapsed Time: 
Lines/CPU Min: 

eg Nh a 5 
Used: 


EDT.SRCJE 
EDT.SRCJP 


SUBS = So ule 
LN_SUBCMD = SUBS 


T$ 
T$ 
3} 1 END 
2 
2 0 ELUDOM 


CTS.L32;1 


Lin 
TITUTE Line-mode command -Sep-1 


! of module EDTSLSUBS 


PSECT SUMMARY 
Bytes Attributes 
287 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eoccce = Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
-L32;1 377 A) ] 6 40 0:00.2 
2 1 $8 7 80; 700.1 


COMMAND QUALIFIERS 


271 of°%t. 5 16 data bytes 


age 
9811 


120 pages 
tion ‘Canplere’ 


we ltnoranae 1b-te ~3e0n13Be F3i3b:28  WNSckvwBaASTencceot secSusues.eut:1 
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